home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson5 / Lesson5.dcr / 00113_Reg-Pro sprite member.ls < prev    next >
Encoding:
Text File  |  2001-02-01  |  508 b   |  18 lines
  1. property spriteNum, pRegMember, pProMember
  2. global QuickBooksPro
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pRegMember, [#default: EMPTY, #format: #string, #comment: "Reg member:"])
  7.   addProp(description, #pProMember, [#default: EMPTY, #format: #string, #comment: "Pro member:"])
  8.   return description
  9. end
  10.  
  11. on beginSprite me
  12.   if QuickBooksPro = "TRUE" then
  13.     sprite(spriteNum).member = member(pProMember)
  14.   else
  15.     sprite(spriteNum).member = member(pRegMember)
  16.   end if
  17. end
  18.